##Distncia entre cidades


cidades =c("Atenas", "Madri","Paris", "Estocolmo")
dist=c(NA,NA,NA,NA,3947,NA,NA,NA,3000,1273,NA,NA,3927,3188,1827,NA)
mt.cid=matrix(dist,4,4,byrow = TRUE)
mt.cid
colnames(mt.cid)=cidades
rownames(mt.cid)=cidades
mt.cid

###Criao de um data frame
#18 valores ao todo = 18 linhas
help(rep)#rep.int(x, times)
cor = c(rep("claros", 9),( rep("escuros", 9)))#9 claros e 9 escuros
cor
class(cor)
#outra forma de fazer rep
dieta=rep(c("A","B","C"),time=2, each=3)
dieta
class(dieta)
ind=c(paste("indiv",1:18))
ind
peso=c(0.1 , 1.1 , 3.7,  5.7, -1.2, -1.5,  3.0, -0.4, 0.6,1.5, -0.1, 2.0,  0.6, -3.0, -0.3,  -0.2, 0.3, 1.5)
peso
help(data.frame)#data.frame(..., row.names = NULL, check.rows = FALSE,check.names = TRUE,stringsAsFactors = default.stringsAsFactors())
conj.dados=data.frame(ind,cor,dieta,peso,row.names="ind")
conj.dados #data frame feito !

#Mdia
help(tapply)#tapply(objeto, indice,funo, ...)
conj.dados
str(conj.dados)
peso.dieta = tapply(peso,dieta,mean)#mdia de pesos para cada
peso.dieta
peso.fen=tapply(peso,cor,mean)#mdia de pesos pra cada cor
peso.fen

#Lendo e Salvando seus dados
caix=choose.files()
caix
caix.dados=read.table(caix,header=TRUE, sep=",",as.is=TRUE)
caix.dados
class(dados.fl)#vendo classe do objeto criado
str(caix.dados)
summary(dados.fl)#sumrio
caix.cap

#separando colunas
